home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / ezzcomm.zip / TOMCAT.T < prev    next >
Text File  |  1991-02-16  |  1KB  |  27 lines
  1.  : EZ-ZCOMM Copyright 1991 by Roger E. Hough, All Rights Reserved.
  2.  : Licensed for use at your own risk without fee. Altered versions,
  3.  : when distributed, must be clearly marked as altered and accompanied
  4.  : by the originals.
  5.  set s3 D
  6.  pat;pat 0c \n "set z8 0 set z9 0 pf50 ena -f50"
  7.  pat 1c ? "@set z9 1 pf1 ena -f1"
  8.  pat 2c "]:" "@set z9 2 pf1 ena -f1"
  9.  pat 3c "TOMCAT" "@set z8 1"
  10.  pat 4c "PACKER" "@set z8 2"
  11.  pat 5c "PROTOCOL" "@set z8 3"
  12.  pat 10i "rz\r**\030" "@set z9 3"
  13. tcwait:
  14.  set z8 0 set z9 0 pf50 wait -f50
  15. tcheck:
  16.  if !c||iz9,0 bye;ife r nolog close;return
  17.  ife iz9,3 goto tcdown;if iz9,1 mput Y\r goback tcwait
  18.  if iz8,1 mput %s3\r ife is3,Q return;set s3 Q goback tcwait
  19.  mput Z\r goback tcwait
  20. tcdown:
  21.  sets s2 %plog;if %plog setc plog "%n9/%remote\&xf.log";sets s1 %dirrx
  22.  sets dirrx "%tmp/";rz -ym %remote.zip;sets dirrx %s1 sets plog %s2
  23.  if c set z8 0 set z9 0 pf50 wait -f50
  24.  obey "!~PKUNZIP -c %tmp/%remote.zip MESSAGES.DAT|QWK2LOG %n9/%remote"
  25.  del %tmp/%remote.zip
  26.  goback tcheck
  27.